home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / PACKAGES / LEDIT.ELC < prev    next >
Text File  |  1993-03-28  |  3KB  |  52 lines
  1. ;;; compiled by jwz@thalidomide on Thu Jul  2 16:36:51 1992
  2. ;;; from file /u/jwz/emacs19/lisp/packages/ledit.el
  3. ;;; emacs version 19.2.1 Lucid.
  4. ;;; bytecomp version 2.07; 17-jun-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴!¼é┬┬ç" [boundp ledit-mode-map nil] 2)
  14. (defconst ledit-zap-file (byte-code "└┴ ┬Qç" ["/tmp/" user-login-name ".l1"] 3) "\
  15. File name for data sent to Lisp by Ledit.")
  16. (defconst ledit-read-file (byte-code "└┴ ┬Qç" ["/tmp/" user-login-name ".l2"] 3) "\
  17. File name for data sent to Ledit by Lisp.")
  18. (defconst ledit-compile-file (byte-code "└┴ ┬Qç" ["/tmp/" user-login-name ".l4"] 3) "\
  19. File name for data sent to Lisp compiler by Ledit.")
  20. (defconst ledit-buffer "*LEDIT*" "\
  21. Name of buffer in which Ledit accumulates data to send to Lisp.")
  22. (fset 'ledit-save-defun #[nil "è└ ê`┬ ê├ `    #ê)┼╞!)ç" [end-of-defun end beginning-of-defun append-to-buffer ledit-buffer message "Current defun saved for Lisp"] 4 "\
  23. Save the current defun in the ledit buffer" nil])
  24. (fset 'ledit-save-region #[(beg end) "└    \n #ê─┼!ç" [append-to-buffer ledit-buffer beg end message "Region saved for Lisp"] 4 "\
  25. Save the current region in the ledit buffer" "r"])
  26. (fset 'ledit-zap-defun-to-lisp #[nil "└ ê┴ ç" [ledit-save-defun ledit-go-to-lisp] 1 "\
  27. Carry the current defun to lisp" nil])
  28. (fset 'ledit-zap-defun-to-liszt #[nil "└ ê┴ ç" [ledit-save-defun ledit-go-to-liszt] 1 "\
  29. Carry the current defun to liszt" nil])
  30. (fset 'ledit-zap-region-to-lisp #[(beg end) "└    \n\"ê├ ç" [ledit-save-region beg end ledit-go-to-lisp] 3 "\
  31. Carry the current region to lisp" "r"])
  32. (fset 'ledit-go-to-lisp #[nil "½â┴ ê┬ !½æè qêebê─ed#ê╞ ê)╟!ê╔\n╦ë#ç" [ledit-save-files save-some-buffers get-buffer ledit-buffer write-region ledit-zap-file erase-buffer suspend-emacs ledit-go-to-lisp-string load ledit-read-file t] 4 "\
  33. Suspend Emacs and restart a waiting Lisp job." nil])
  34. (fset 'ledit-go-to-liszt #[nil "½â┴ ê┬ !½òè qêebê─cê┼ed#ê╟ ê)╚    !ê╩ ╠ë#ç" [ledit-save-files save-some-buffers get-buffer ledit-buffer "(declare (macros t))\n" write-region ledit-compile-file erase-buffer suspend-emacs ledit-go-to-liszt-string load ledit-read-file t] 4 "\
  35. Suspend Emacs and restart a waiting Liszt job." nil])
  36. (fset 'ledit-setup #[nil "¼ç┴ ┬!ê├─┼#ê├╞╟#ê├╚╔#ê├╩╦#ç" [ledit-mode-map make-sparse-keymap lisp-mode-commands define-key "" ledit-save-defun "" ledit-save-region "z" ledit-go-to-lisp "" ledit-go-to-liszt] 4 "\
  37. Set up key bindings for the Lisp / Emacs interface"])
  38. (ledit-setup)
  39. (fset 'ledit-mode #[nil "└ ê┴ ç" [lisp-mode ledit-from-lisp-mode] 1 "\
  40. Major mode for editing text and stuffing it to a Lisp job.
  41. Like Lisp mode, plus these special commands:
  42.   M-C-d    -- record defun at or after point
  43.        for later transmission to Lisp job.
  44.   M-C-r -- record region for later transmission to Lisp job.
  45.   C-x z -- transfer to Lisp job and transmit saved text.
  46.   M-C-c -- transfer to Liszt (Lisp compiler) job
  47.        and transmit saved text.
  48. \\{ledit-mode-map}
  49. To make Lisp mode automatically change to Ledit mode,
  50. do (setq lisp-mode-hook 'ledit-from-lisp-mode)" nil])
  51. (fset 'ledit-from-lisp-mode #[nil "└    !ê┬─╞╟!ç" [use-local-map ledit-mode-map "Ledit" mode-name ledit-mode major-mode run-hooks ledit-mode-hook] 2])
  52.